home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
UTILITY1
/
IPXSPX.ZIP
/
SOURCE
/
DIRSERV
/
SERVERFO.TXT
< prev
Wrap
Text File
|
1993-12-20
|
2KB
|
82 lines
Sub aboutButton_Click ()
AboutForm.Show 1
End Sub
Sub Form_Load ()
spx1.LinkType = 2
End Sub
Sub FormatInternetAddress (inString)
Dim nwString, outString As String
Dim index As Integer
'Pretty printing for the hexidecimal network and node addresses
outString = "["
nwString = Mid$(inString, 1, 4)
For index = 1 To Len(nwString)
outString = outString & Format$(Hex$(Asc(Mid$(nwString, index, 1))), "00")
Next index
outString = outString & "]["
nwString = Mid$(inString, 5, 6)
For index = 1 To Len(nwString)
outString = outString & Format$(Hex$(Asc(Mid$(nwString, index, 1))), "00")
Next index
outString = outString & "]"
inString = outString
End Sub
Sub okButton_Click ()
End
End Sub
Sub ServerMenuFileExit_Click ()
End
End Sub
Sub spx1_LinkEvent ()
Dim address As String
If spx1.Event Then
MsgBox "Error Link: " & spx1.Event
End If
If spx1.Status = 0 Then
address = spx1.ReceivedFrom
FormatInternetAddress address
remoteList.AddItem address & " has disconnected"
End If
End Sub
Sub spx1_ReceiveData ()
Dim address As String
If spx1.Received = "DIR" Then
id = spx1.Connection
address = spx1.ReceivedFrom
FormatInternetAddress address
remoteList.AddItem address & " has connected"
spx1.RemoteName = spx1.ReceivedFrom
spx1.Send = Dir$("*.*")
End If
End Sub
Sub spx1_SendData ()
newFile = Dir$
If newFile <> "" Then
spx1.Send = newFile
End If
End Sub